home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 90 / CD Actual 90.iso / Software3D / VirtualLight / VLight1.3win32.exe / Examples / Level2 / cornellNURBS.vs < prev    next >
Encoding:
Text File  |  2002-10-07  |  735 b   |  44 lines
  1. ReadArchive "statics.vib"
  2.  
  3. Declare white = Shader [ PlainSurface [
  4.     Color '1.0,1.0,1.0'
  5.     Kd 0.8
  6.     Ks ( 0.0, '1.0,1.0,1.0' )
  7.     ]
  8. ]
  9.  
  10. Declare red = Shader [ PlainSurface [
  11.     Color '1.0,0.0,0.0'
  12.     Kd 0.8
  13.     Ks ( 0.0, '1.0,1.0,1.0' )
  14.     ]
  15. ]
  16.  
  17. Declare green = Shader [ PlainSurface [
  18.     Color '0.0,0.674167,1.0'
  19.     Kd 0.8
  20.     Ks ( 0.0, '1.0,1.0,1.0' )
  21.     ]
  22. ]
  23.  
  24. Declare glass = Shader [ FunctionalSurface [
  25.   Color '1,1,1'
  26.   Kd 0.1
  27.   Ks 0.3
  28.   Kt((0.93736*|N.I|<0.1?0.1 : 0.93736*|N.I|), 1.33, '1,1,1')
  29.   BlinnSpecularBRDF 12
  30.   Caustics 0.1
  31.  ]
  32. ]
  33.  
  34. Declare mvlPlainShader6 = Shader [ PlainSurface [
  35.     Color '1.0,1.0,1.0'
  36.     Kd 0.01
  37.     Kb 1.1
  38.     Ks ( 0.2, '1.0,1.0,1.0' )
  39.     PhongSpecularBRDF 10.0
  40.     Kr 1.0
  41.     MetalAttribute 1.1
  42.     ]
  43. ]
  44.